home *** CD-ROM | disk | FTP | other *** search
/ PC Open 92 / PC Open 92 CD 1.bin / internet / AmphetaDesk / AmphetaDesk.pl < prev    next >
Encoding:
Perl Script  |  2002-10-22  |  4.8 KB  |  67 lines
  1. #!/usr/bin/perl -w
  2. ###############################################################################
  3. # AmphetaDesk                                           (c) 2000-2002 Disobey #
  4. # morbus@disobey.com                      http://www.disobey.com/amphetadesk/ #
  5. ###############################################################################
  6. # AmphetaDesk is a news aggregator - it sits on your desktop, downloads the   #
  7. # latest news that interests you, and displays them in a quick and easy to    #
  8. # use webpage. With thousands of channels for selection, AmphetaDesk can      #
  9. # shave hours off your day when it comes to news reading. And you'll look     #
  10. # smart to all your friends! Egotism never had it better!                     #
  11. #                                                                             #
  12. # NOTE: This is a "wrapper" script, whose primary usage is to create single   #
  13. # simple binaries on systems that don't come with perl preinstalled (Win and  #
  14. # Macs). It's only purpose should be to create a .exe file that will load in  #
  15. # pure perl code located in our ~/lib directory. Keep this slim!              #
  16. #####################################################                         #
  17.                                                     #                         #
  18. use lib;                                            #   Explicit for compile. #
  19. use FindBin qw($Bin);                               #  Find out where we are. #
  20. use File::Spec::Functions;                          #     Path handling love. #
  21. BEGIN { unshift(@INC, catdir($Bin, "lib")); }       # And add to our lookups. #
  22.                                                     #                         #
  23. # these modules should be binaried to have a        #                         #
  24. # smaller lib/. Note that @INC is set to our lib/   #                         #
  25. # before it's set to use the binaried, so we can    #                         #
  26. # always override/upgrade into lib/ if need be.     #                         #
  27. use constant;                                       #    Declaring constants. #
  28. use strict;                                         #        Do things right. #
  29. use CGI;                                            #        Reads GET/POSTs. #
  30. use Digest::MD5;                                    #      For unique hashes. #
  31. use Getopt::Long;                                   #     Command line flags. #
  32. use File::Basename;                                 #   Determines filenames. #
  33. use HTTP::Date;                                     #   GMT Time Conversions. #
  34. use HTTP::Daemon;                                   #       Webserver daemon. #
  35. use IO::Select;                                     #        OOP of select(). #
  36. use IO::Socket;                                     #     Port listening fun. #
  37. use LWP;                                            #          Why, it's LWP! #
  38. use LWP::Simple;                                    #         Simply amazing! #
  39. use LWP::UserAgent;                                 #    User-rific! (pffff). #
  40. use LWP::Protocol::ftp;                             #   Explicit for compile. #
  41. use LWP::Protocol::http;                            #   Explicit for compile. #
  42. use URI::ftp;                                       #   Explicit for compile. #
  43. use URI::http;                                      #   Explicit for compile. #
  44.                                                     #                         #
  45. # modules that have OS specific XS code.            #                         #
  46. use Compress::Zlib;                                 #  Compression routines.  #
  47. use XML::Parser;                                    #      Super XML Parser.  #
  48. # use Mac::InternetConfig;                          # for macintosh compile.  #
  49. # use Win32::API;                                   #   for windows compile.  #
  50. # use Win32::GUI;                                   #   for windows compile.  #
  51. # use Win32::TieRegistry;                           #   for windows compile.  #
  52.                                                     #                         #
  53. # start amphetadesk.                                #                         #
  54. use AmphetaDesk;                                    #   Burnt toast. Indeed.  #
  55. init( "1.0" );                                      #  Location and version.  #
  56.                                                     #                         #
  57. #####################################################                         #
  58. #   end of the wrapper script. main program starts in ~/lib/AmphetaDesk.pm    #
  59. ###############################################################################
  60.  
  61.  
  62.  # Dedicated to all the companies who wait until a large user base becomes
  63.  #   dependant on their freeware, then shafting said happy campers with
  64.  #     mandatory payment for continued usage. I spit on your grave.
  65.  
  66.  
  67.